-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 4747
-- card count: 20
-- first card id: 4306
-- list block id: 13715
-- print block id: 3460
-- font table block id: 0
-- style table block id: 0
-- free block count: 1
-- free size: 3008 bytes
-- total size: 49152 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- By Ron LeMay, Feb 1990
ON OPENSTACK
  GLOBAL NUMBER
  global tries
  PUT ZERO INTO NUMBER
  put zero into background field "number"
  put zero into tries
  hide menubar
  hide background field "ans"
  set userlevel to 5
END OPENSTACK

on opencard


  global number
  global tries
  put the number of this card into bkgnd field"ct"


  put tries into background field "try"
  put number into background field "number"
  show card button "Click Here for Hint"
  show bkgnd button "Polar"
  show bkgnd button "Nonpolar"
end opencard

on check
  global response
  global number
  global tries

  get item 1 of background field "ans"
  if it = response then
    get background field "number"
    add 1 to number
    put number into background field "number"
    -- play "boing"
    PUT "CORRECT!" INTO BACKGROUND FIELD "CORRECT"
    show BACKGROUND field "correct"
    wait 90
    HIDE BACKGROUND FIELD "CORRECT"
    visual effect dissolve to gray
    show card button "Click Here for Hint"
    GO TO NEXT CARD IN STACK

  ELSE
    PUT "TRY AGAIN" INTO BACKGROUND FIELD "CORRECT"
    SHOW BKGND FIELD "CORRECT"
    WAIT 90
    HIDE BKGND FIELD "CORRECT"
  end if
end check


on showhint
  hide card button "Click Here for Hint"
  get item 2 of background field "Ans"
  if it = "n" then
    hide bkgnd button "nonpolar"
  end if
  if it = "p" then
    hide bkgnd button "polar"
  end if
end showhint